From 22a2ba375ad998c08773bb645ada94693a693b55 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 27 Nov 2000 02:30:42 +0000 Subject: [PATCH] (help-make-xrefs): Delete extraneous newlines at the end of the docstring. --- lisp/help.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/help.el b/lisp/help.el index 8c9f5c80901..b3e726ba27c 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1239,9 +1239,12 @@ that." "mouse-2, RET: describe this function")))) (zerop (forward-line))))))))) (set-syntax-table stab)) + ;; Delete extraneous newlines at the end of the docstring + (goto-char (point-max)) + (while (and (not (bobp)) (bolp)) + (delete-char -1)) ;; Make a back-reference in this buffer if appropriate. (when (and help-xref-following help-xref-stack) - (goto-char (point-max)) (save-excursion (insert "\n\n" help-back-label)) ;; Just to provide the match data: -- 2.30.2